home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / CTASK11.LHA / CronTask / Install / Install CronTask < prev    next >
Encoding:
Text File  |  1994-10-26  |  10.0 KB  |  429 lines
  1. ;$VER: CronTask Install 1.0 (Sep 25 1994) 
  2. ;Copyright © 1994 JoJoSoft Development. All rights reserved.
  3.  
  4. ;=============================================================================
  5. ; English strings
  6. ;=============================================================================
  7.  
  8. (if (= @language "english")
  9. (
  10.     (set #default_language 1)
  11.  
  12.     (set #install-msg
  13.         (cat "\n\nInstalling CronTask in your system.\n\n"
  14.              "CronTask © 1994 JoJoSoft Development.\n"
  15.              "All rights reserved." ))
  16.  
  17.     (set #AreYouSureUnInstall "\\n\\n\\n\\n\\n\\n\\n\\n\\n\\n\\n\\n\\nAre you sure you want to uninstall CronTask.")
  18.     (set #UnInstallFinished "\\n\\n\\n\\nCronTask uninstall is finished. CronTask has sadly \\nenough been removed from your system.")
  19.     (set #ChooseDir    "\nChoose destination directory\nfor ")
  20.     (set #GetUnPathText (cat #ChooseDir "the uninstallation script\n"))
  21.     (set #CopyCronTaskText (cat #ChooseDir "CronTask\n"))
  22.     (set #CopyCronPrefsText (cat #ChooseDir "CronPrefs\n"))
  23.     (set #CopyCronLibText "\nCopying 'cronserver.library' to LIBS:.\n")
  24.     (set #IconEnhPrompt "\n\n\n\n\n\n\n\nWhich icon set do you want to install?")
  25.     (set #IconEnhGadgets1 "Standard (4 colors)")
  26.     (set #IconEnhGadgets2 "Enhanced (8 colors)")
  27.     (set #DocPathPrompt (cat #ChooseDir "the documention\n"))
  28.  
  29.     (set #wrong-kick (cat "This program is a heavy user of OS 2.x. Buy it, you wont regret it! For starters you could use the best Cron ever." ))
  30.  
  31.     (set #which-language (cat "\nWhich languages should be installed?" ))
  32.     (set #which-language-help
  33.         (cat "\nOne of the best features of Workbench 2.1 was\n"
  34.              "the abilty to work in different languages.\n"
  35.              "CronTask uses this feature. If your language\n"
  36.              "is avilable then select it and make the most\n"
  37.              "out of CronTask\n\n"
  38.               @askoptions-help ))
  39.  
  40.     (set #which-document (cat "\nWhich documentations should be installed?" ))
  41.     (set #which-document-help
  42.         (cat "Hjälp!!!"
  43.                 @askoptions-help ))
  44.  
  45.     (set #Ending (cat "\n\nWe congratulate you to your fine choice of Cron. Make\n"
  46.                              "sure to read the manual carefully so you don't\n"
  47.                              "missout on any of the great features of CronTask.\n\n\n"
  48.                              "An unistall script has been created: "))
  49.  
  50. ))
  51.  
  52. ;=============================================================================
  53. ; Svenska strängar
  54. ;=============================================================================
  55.  
  56. (if (= @language "svenska")
  57. (
  58.     (set #default_language 2)
  59.  
  60.     (set #install-msg
  61.         (cat "\n\nInstallerar CronTask i ditt system.\n\n"
  62.              "CronTask © 1994 JoJoSoft Development.\n"
  63.              "Alla rättigheter reserverade."
  64.     ))
  65.  
  66.     (set #AreYouSureUnInstall "\\n\\n\\n\\n\\n\\n\\n\\n\\n\\n\\n\\n\\nÄr du säker på att du vill avinstallera CronTask?")
  67.     (set #UnInstallFinished "\\n\\n\\n\\nCronTask avinstallation är klar. CronTask har\\nsorgligt nog blivit borttaget från ditt system.")
  68.     (set #ChooseDir    "\nVälj en katalog för\n ")
  69.     (set #GetUnPathText (cat #ChooseDir "avinstallations scriptet\n"))
  70.     (set #CopyCronTaskText (cat #ChooseDir "CronTask\n"))
  71.     (set #CopyCronPrefsText (cat #ChooseDir "CronPrefs\n"))
  72.     (set #CopyCronLibText "\nKopierar 'cronserver.library' till LIBS:.\n")
  73.     (set #IconEnhPrompt "\n\n\n\n\n\n\n\nVilken ikon uppsättning vill du installera?")
  74.     (set #IconEnhGadgets1 "Standard (4 färgers).")
  75.     (set #IconEnhGadgets2 "Förfinat (8 färgers).")
  76.     (set #DocPathPrompt (cat #ChooseDir "dokumenten\n"))
  77.  
  78.     (set #wrong-kick (cat "Detta program är en tung användare av OS 2.x. Köp det, du kommer inte ångra dig! Till att börja med kan du då använda den bästa Cron någonsin." ))
  79.  
  80.     (set #which-language (cat "\nVilka språk ska bli installerade?" ))
  81.     (set #which-language-help
  82.         (cat "\nEn av dom bästa finesserna i Workbench 2.1 var\n"
  83.              "möjligheten att arbeta i olika språk.\n"
  84.                  "CronTask använder denna finess. Om ditt språk finns\n"
  85.                  "tillgängligt, välj det och gör det mesta av CronTask.\n"
  86.               @askoptions-help ))
  87.  
  88.     (set #which-document (cat "\nVilka dokument ska bli installerade?" ))
  89.     (set #which-document-help
  90.         (cat "Hjälp!!!"
  91.                 @askoptions-help ))
  92.  
  93.     (set #Ending (cat "\n\nVi gratulerar till ditt fina val av Cron. Se till\n"
  94.                              "att läsa manualen noggrant så du inte missar några av\n"
  95.                              "CronTask's alla finesser.\n\n\n"
  96.                              "Ett avinstallations script har skapats: "))
  97. ))
  98.  
  99. ;--------------------------
  100. ; Script's real beginning.
  101. ;--------------------------
  102.  
  103. (if (< (/ (getversion) 65536) 37)
  104. (
  105.     (abort #wrong-kick)
  106. ))
  107.  
  108. (user 2)
  109. (welcome (message #install-msg))
  110.  
  111. (complete 0)
  112.  
  113. (set DefUn-Path
  114.     (askdir
  115.         (prompt #GetUnPathText)
  116.         (help @askdir-help)
  117.         (default "RAM:")
  118.     )
  119. ) 
  120.  
  121. (copyfiles
  122.     (newname "Un-Install CronTask.info")
  123.     (source "English.info")
  124.     (dest DefUn-Path)
  125. )
  126.  
  127. (tooltype
  128.     (dest (cat DefUn-Path "Un-Install CronTask"))
  129.     (settooltype "SCRIPT" "Un-Install CronTask")
  130.     (settooltype "MINUSER" "EXPERT")
  131.     (noposition)
  132. )
  133.  
  134. (working #install-msg)
  135.  
  136. (run (cat "echo >\"" DefUn-Path "Un-Install CronTask\""))
  137. (set Un-Path (cat "echo >>\"" DefUn-Path "Un-Install CronTask\""))
  138.  
  139. (run Un-Path "\";$VER: CronTask Un-Install 1.0 (Sep 25 1994)\"")
  140. (run Un-Path "\";Copyright © 1994 JoJoSoft Development. All rights reserved\"")
  141. (run Un-Path "\"(complete 0)\"")
  142. (run (cat Un-Path "\"(user 2)\""))
  143. (run (cat Un-Path "\"(welcome (message '" #AreYouSureUnInstall "'))\""))
  144. (run (cat Un-Path "\"(delete '" DefUn-Path "Un-Install CronTask')\""))
  145. (run (cat Un-Path "\"(delete '" DefUn-Path "Un-Install CronTask.info')\""))
  146. (run (cat Un-Path "\"(run 'delete ENV:Cron all')\""))
  147. (run (cat Un-Path "\"(run 'delete ENVARC:Cron all')\""))
  148. (run Un-Path "\"(complete 10)\"")
  149.  
  150. ;--------------------------------------------------
  151. ; Copying CronTask, Cronprefs & cronserver.library.
  152. ;--------------------------------------------------
  153.  
  154. (set CronTask-Path
  155.     (askdir
  156.         (prompt #CopyCronTaskText)
  157.         (help @askdir-help)
  158.         (default "SYS:WBStartup/")
  159.     )
  160. )
  161.  
  162. (copyfiles
  163.     (source "/CronTask")
  164.     (dest CronTask-Path)
  165.     (infos)
  166. )
  167.  
  168. (complete 8)
  169.  
  170. (working #install-msg)
  171.  
  172. (run (cat Un-Path "\"(run '" CronTask-Path "CronTask q')\""))
  173. (run Un-Path "\"(complete 20)\"")
  174. (run (cat Un-Path "\"(delete '" CronTask-Path "CronTask.info')\""))
  175. (run (cat Un-Path "\"(delete '" CronTask-Path "CronTask')\""))
  176. (run Un-Path "\"(complete 30)\"")
  177.  
  178. (complete 16)
  179.  
  180. (set CronPrefs-Path
  181.     (askdir
  182.         (prompt #CopyCronPrefsText)
  183.         (help @askdir-help)
  184.         (default "SYS:Prefs/")
  185.     )
  186. ) 
  187.  
  188. (copyfiles
  189.     (source "/CronPrefs")
  190.     (dest CronPrefs-Path)
  191.     (infos)
  192. )
  193.  
  194. (complete 24)
  195.  
  196. (working #install-msg)
  197.  
  198. (run (cat Un-Path "\"(delete '" CronPrefs-Path "CronPrefs')\""))
  199. (run Un-Path "\"(complete 40)\"")
  200. (run (cat Un-Path "\"(delete '" CronPrefs-Path "CronPrefs.info')\""))
  201. (run Un-Path "\"(complete 50)\"")
  202.  
  203. (complete 32)
  204.  
  205. (copylib
  206.     (prompt #CopyCronLibText)
  207.     (help @copylib-help)
  208.     (source "/Libs/cronserver.library")
  209.     (dest "LIBS:")
  210.     (confirm)
  211. )
  212.  
  213. (working #install-msg)
  214.  
  215. (run (cat Un-Path "\"(delete 'Libs:cronserver.library')\""))
  216. (run Un-Path "\"(complete 60)\"")
  217.  
  218. (complete 40)
  219.  
  220. ;-----------------
  221. ; Copying icon's.
  222. ;-----------------
  223.  
  224. (set #Enhanced
  225.     (askchoice
  226.         (prompt #IconEnhPrompt)
  227.         (default 0)
  228.         (choices #IconEnhGadgets1 #IconEnhGadgets2)
  229.         (help "Hjälp!!!")
  230.     )
  231. )
  232.  
  233. (complete 56)
  234.  
  235. (if #Enhanced
  236. (
  237.     (copyfiles
  238.         (source "/Icons/CronTask.info")
  239.         (dest CronTask-Path)
  240.     )
  241.  
  242.     (copyfiles
  243.         (source "/Icons/CronPrefs.info")
  244.         (dest CronPrefs-Path)
  245.     )
  246. ))
  247.  
  248. (complete 64)
  249.  
  250. (tooltype
  251.     (dest (cat CronTask-Path "CronTask"))
  252.     (settooltype "DONOTWAIT" "")
  253.     (noposition)
  254. )
  255.  
  256. (tooltype
  257.     (dest (cat CronPrefs-Path "CronPrefs"))
  258.     (noposition)
  259. )
  260.  
  261. (complete 69)
  262.  
  263. ;-----------------------
  264. ; Copying documentation.
  265. ;-----------------------
  266.  
  267. (set documentation
  268.     (askoptions
  269.         (prompt #which-document)
  270.         (help #which-document-help)
  271.         (choices
  272.             "English"
  273.             "Svenska")
  274.             (default #default_language)
  275.         )
  276. )
  277.  
  278. (complete 72)
  279.  
  280. (set count 0)
  281. (set #askdocpath 1)
  282.  
  283. (while (set doc (select count
  284.                                 "english"
  285.                                 "svenska"
  286.                                 ""))
  287. (
  288.     (if (IN documentation count)
  289.     (
  290.         (if #askdocpath
  291.         (
  292.             (set #askdocpath 0)
  293.             
  294.             (set Doc-Path
  295.                 (askdir
  296.                     (prompt #DocPathPrompt)
  297.                     (help @askdir-help)
  298.                     (default CronPrefs-Path)
  299.                 )
  300.             ) 
  301.         ))
  302.  
  303.         (if (= count 0)
  304.         (
  305.             (copyfiles
  306.                 (source "/Docs/CronTask.guide.eng")
  307.                 (dest Doc-Path)
  308.                 (infos)
  309.             )
  310.  
  311.             (if #Enhanced
  312.             (
  313.                 (copyfiles
  314.                     (newname "CronTask.guide.eng.info")
  315.                     (source "/Icons/Doc.info")
  316.                     (dest Doc-Path)
  317.                 )
  318.             ))
  319.  
  320.             (tooltype
  321.                 (dest (cat Doc-Path "CronTask.guide.eng"))
  322.                 (noposition)
  323.             )
  324.  
  325.             (working #install-msg)
  326.  
  327.             (run (cat Un-Path "\"(delete '" Doc-Path "CronTask.guide.eng')\""))
  328.             (run (cat Un-Path "\"(delete '" Doc-Path "CronTask.guide.eng.info')\""))
  329.         ))
  330.  
  331.         (if (= count 1)
  332.         (
  333.             (copyfiles
  334.                 (source "/Docs/CronTask.guide.sve")
  335.                 (dest Doc-Path)
  336.                 (infos)
  337.             )
  338.  
  339.             (if #Enhanced
  340.             (
  341.                 (copyfiles
  342.                     (newname "CronTask.guide.sve.info")
  343.                     (source "/Icons/Doc.info")
  344.                     (dest Doc-Path)
  345.                 )
  346.             ))
  347.  
  348.             (tooltype
  349.                 (dest (cat Doc-Path "CronTask.guide.sve"))
  350.                 (noposition)
  351.             )
  352.  
  353.             (working #install-msg)
  354.  
  355.             (run (cat Un-Path "\"(delete '" Doc-Path "CronTask.guide.sve')\""))
  356.             (run (cat Un-Path "\"(delete '" Doc-Path "CronTask.guide.sve.info')\""))
  357.         ))
  358.     ))
  359.  
  360.     (set count (+ count 1))
  361. ))
  362.  
  363. (working #install-msg)
  364.  
  365. (run Un-Path "\"(complete 90)\"")
  366.  
  367. (complete 80)
  368.  
  369. ;-----------------------
  370. ; Copying locale.
  371. ;-----------------------
  372.  
  373. (if (exists "Sys:Locale" (noreq))
  374. (
  375.     (if (exists "LOCALE:" (noreq))
  376.     (
  377.         (set language
  378.             (askoptions
  379.                 (prompt #which-language)
  380.                 (help #which-language-help)
  381.                 (choices
  382.                     "English"
  383.                     "Svenska")
  384.                     (default #default_language)
  385.                 )
  386.         )
  387.  
  388.         (set count 0)
  389.         (while (set lang (select count
  390.                                         "english"
  391.                                         "svenska"
  392.                                         ""))
  393.         (
  394.             (if (IN language count)
  395.             (
  396.                 (if (<> count 0)
  397.                 (
  398.                     (makedir (cat "LOCALE:Catalogs/" lang))
  399.  
  400.                     (copyfiles
  401.                         (source (cat "/Catalogs/" lang))
  402.                         (dest (cat "LOCALE:Catalogs/" lang))
  403.                         (all)
  404.                     )
  405.  
  406.                     (run (cat Un-Path "\"(delete 'Locale:Catalogs/" lang "/cronprefs.catalog')\""))
  407.  
  408.                 ))
  409.             ))
  410.  
  411.             (set count (+ count 1))
  412.         ))
  413.     ))
  414. ))
  415.  
  416. (complete 88)
  417.  
  418. (user 3)
  419.  
  420. (run Un-Path "\"(complete 100)\"")
  421. (run Un-Path "\"(message '" #UnInstallFinished "')\"")
  422. (run Un-Path "\"(exit (quiet))\"")
  423.  
  424. (complete 100)
  425.  
  426. (message (cat #Ending (substr Un-Path 7)))
  427.  
  428. (exit (quiet))
  429.